﻿Public Class DocumentoAlmacenDetalleUbicacion

    Dim _cia, _suc, _tdoc_codigo, _dca_codigo As String
    Dim _dad_codigo, _cod_ubicacion, _dadu_cantidad As Integer
    Dim _alm_codigo, _cod_usuario As String

    Sub New()

    End Sub

    Sub New(ByVal cia As String, ByVal suc As String, ByVal tdocodigo As String, ByVal dcacodigo As String, ByVal dadcodigo As Integer, _
            ByVal almcodigo As String, ByVal codubicacion As Integer, ByVal codusuario As String, ByVal daducantidad As Integer)
        Me._cia = cia
        Me._suc = suc
        Me._tdoc_codigo = tdocodigo
        Me._dca_codigo = dcacodigo
        Me._dad_codigo = dadcodigo
        Me._alm_codigo = almcodigo
        Me._cod_ubicacion = codubicacion
        Me._cod_usuario = codusuario
        Me._dadu_cantidad = daducantidad
    End Sub

    Sub New(ByVal cia As String, ByVal suc As String, ByVal tdocodigo As String, ByVal dcacodigo As String, ByVal dadcodigo As Integer)
        Me._cia = cia
        Me._suc = suc
        Me._tdoc_codigo = tdocodigo
        Me._dca_codigo = dcacodigo
        Me._dad_codigo = dadcodigo
    End Sub

    Public Property CIA() As String
        Get
            Return _cia
        End Get
        Set(ByVal value As String)
            _cia = value
        End Set
    End Property

    Public Property SUC() As String
        Get
            Return _suc
        End Get
        Set(ByVal value As String)
            _suc = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _tdoc_codigo
        End Get
        Set(ByVal value As String)
            _tdoc_codigo = value
        End Set
    End Property

    Public Property DCA_Codigo() As String
        Get
            Return _dca_codigo
        End Get
        Set(ByVal value As String)
            _dca_codigo = value
        End Set
    End Property

    Public Property DAD_Codigo() As Integer
        Get
            Return _dad_codigo
        End Get
        Set(ByVal value As Integer)
            _dad_codigo = value
        End Set
    End Property

    Public Property ALM_Codigo() As String
        Get
            Return _alm_codigo
        End Get
        Set(ByVal value As String)
            _alm_codigo = value
        End Set
    End Property

    Public Property COD_Ubicacion() As Integer
        Get
            Return _cod_ubicacion
        End Get
        Set(ByVal value As Integer)
            _cod_ubicacion = value
        End Set
    End Property

    Public Property COD_Usuario() As String
        Get
            Return _cod_usuario
        End Get
        Set(ByVal value As String)
            _cod_usuario = value
        End Set
    End Property

    Public Property DADU_Cantidad() As Integer
        Get
            Return _dadu_cantidad
        End Get
        Set(ByVal value As Integer)
            _dadu_cantidad = value
        End Set
    End Property

End Class
